Presented are the results of the FMG online teaching survey, conducted by the FMG Teaching & Learning Centre.
What is one online teaching tip or trick that you would share with fellow teachers?
---
title: "FMG-TLC online teaching survey report"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
theme: default
css: "style.css"
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library("readxl")
survey_results <- read_excel("../../data/FMG teachers 2 minute survey December 2020_January 15, 2021_09.45.xlsx", skip = 1)
```
Column {data-width=300}
-----------------------
Presented are the results of the FMG online teaching survey, conducted by the FMG Teaching & Learning Centre.
### Responses
```{r}
n.responses <- dim(survey_results)[1]
valueBox(n.responses, icon = "fa-pencil")
```
### Teaching tips
```{r}
n.tips <- sum(!is.na(survey_results$`What is one online teaching tip or trick that you would share with fellow teachers?`))
valueBox(n.tips, icon = "fa-comments")
```
Column {data-width=650}
-----------------------------------------------------------------------
### Word cloud
`r names(survey_results)[6]`
```{r}
# Used resource: https://towardsdatascience.com/create-a-word-cloud-with-r-bde3e7422e8a
# install.packages("RColorBrewer")
library(RColorBrewer)
# install.packages("wordcloud2")
library("wordcloud2")
# install.packages("tm")
library(tm)
library("dplyr")
# Create a vector containing only the text
text <- survey_results$`What is one online teaching tip or trick that you would share with fellow teachers?`
docs <- Corpus(VectorSource(text))
# Clean the text
docs <- docs %>%
tm_map(removeNumbers) %>%
tm_map(removePunctuation) %>%
tm_map(stripWhitespace)
docs <- tm_map(docs, content_transformer(tolower))
docs <- tm_map(docs, removeWords, stopwords("english"))
# Create word frequencies
dtm <- TermDocumentMatrix(docs)
matrix <- as.matrix(dtm)
words <- sort(rowSums(matrix),decreasing=TRUE)
df <- data.frame(word = names(words),freq=words)
# Create word cloud
wordcloud2(data=df, size=1.6, color='random-dark')
```
Column {data-width=350}
-----------------------------------------------------------------------
### Chart B
```{r}
```
### Chart C
```{r}
```